Subroutines
Calls |
P |
F |
Exclusive Time |
Inclusive Time |
Subroutine |
0 | 0 | 0 | 0s | 0s | IO::Handle::::getlineIO::Handle::getline |
0 | 0 | 0 | 0s | 0s | IO::Handle::::getlinesIO::Handle::getlines |
Call graph for these subroutines as a
Graphviz
dot language file.
Line |
State ments |
Time on line |
Calls |
Time in subs |
1 | | | | | sub getline { |
2 | | | | | @_ == 1 or croak 'usage: $io->getline()'; |
3 | | | | | my $this = shift; |
4 | | | | | return scalar <$this>; |
5 | | | | | } |
6 | | | | | |
7 | | | | | sub getlines { |
8 | | | | | @_ == 1 or croak 'usage: $io->getlines()'; |
9 | | | | | wantarray or |
10 | | | | | croak 'Can\'t call $io->getlines in a scalar context, use $io->getline'; |
11 | | | | | my $this = shift; |
12 | | | | | return <$this>; |
13 | | | | | } |
14 | 1 | 2µs | | | 1; # return true for error checking |
15 | | | | | |
16 | | | | | ; |